Private Sub btnSalir_Click()
    Unload(Me)
End Sub

Private Sub OptionButton1_Click()
    tbOpcion.Text = "Opcion 1"
End Sub

Private Sub OptionButton2_Click()
    tbOpcion.Text = "Opcion 2"
End Sub

Private Sub OptionButton3_Click()
    tbOpcion.Text = "Opcion 3"
End Sub

Private Sub OptionButton4_Click()
    tbOpcion.Text = "Opcion 4"
End Sub

Private Sub OptionButton5_Click()
    tbOpcion.Text = "Opcion 5"
End Sub

Private Sub OptionButton6_Click()
    tbOpcion.Text = "Opcion 6"
End Sub
